00010	C  THIS PLOTS ON CALCOMP (OR TO XGP) STUFF FROM MDSK.DMP(DO PRNTX]
00055	C  LOAD WITH MSSIO.FAI(USES OK CHANS.) & LOOK.FAI (FOR UNPAC ROUTINE)
00100		COMMON I,J,K
00200		DIMENSION M(128)
00300		CALL PLOTS(N)
00350		CALL GETFI2('PLT')
00400	1	CALL FASTI2(M,128)
00500		DO 3 JJ=2,M(1)+1
00550		CALL UNPAC(M(JJ),I)
00560	C  I  IS FIRST OF THREE LOCATIONS.
00600	3	CALL PLOT(I,J,K)
00700		IF(M(1).EQ.127)GO TO 1
00800		TYPE 2
00900	2	FORMAT(' DON''T FORGET "PLT.DMD" ON DSK.')
01000		END